home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1997 May & June
/
Amiga-CD 1997 #5-6.iso
/
demos&programme
/
turbocalc
/
steuerung
< prev
next >
Wrap
AmigaDOS Script File
|
1992-09-17
|
3KB
|
134 lines
.key param
.bra [
.ket ]
. Skript für Verwaltungsaufgaben
. © MagnaMedia Verlag AG, AMIGA-Magazin
failat >nil: 21
if "[param]" EQ "info"
set vinfo 1
endif
if "[param]" EQ "copy"
set vcopy 1
endif
if "[param]" EQ "assign"
set vassign 1
endif
if "[param]" EQ "unassign"
set vunassign 1
endif
if "[param]" EQ "start"
set vassign 1
set vstart 1
set vunassign 1
endif
set binfo 1
set bcopy 1
set bassign 1
set bunassign 1
set bstart 1
echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
set nummer 0
if $binfo EQ 1
echo >>t:tmpsteuerung " Info" NOLINE
set nummer `eval $nummer + 1`
set ninfo $nummer
endif
if $bcopy EQ 1
echo >>t:tmpsteuerung " Kopieren" NOLINE
set nummer `eval $nummer + 1`
set ncopy $nummer
endif
if $bassign EQ 1
echo >>t:tmpsteuerung " Assign" NOLINE
set nummer `eval $nummer + 1`
set nassign $nummer
endif
if $bunassign EQ 1
echo >>t:tmpsteuerung " Unassign" NOLINE
set nummer `eval $nummer + 1`
set nunassign $nummer
endif
if $bstart EQ 1
echo >>t:tmpsteuerung " Start" NOLINE
set nummer `eval $nummer + 1`
set nstart $nummer
endif
if "[param]" EQ ""
echo >>t:tmpsteuerung " Ende" NOLINE
execute >nil: t:tmpsteuerung
delete >nil: t:tmpsteuerung
set reqerg[$$] `getenv env:AmigaCD/req20erg`
if $reqerg[$$] EQ 0
skip Ende
endif
endif
if $reqerg[$$] EQ $ninfo
set vinfo 1
endif
if $reqerg[$$] EQ $ncopy
set vcopy 1
endif
if $reqerg[$$] EQ $nassign
set vassign 1
endif
if $reqerg[$$] EQ $nunassign
set vunassign 1
endif
if $reqerg[$$] EQ $nstart
set vassign 1
set vstart 1
set vunassign 1
endif
endif
if $vinfo EQ 1
;>>>>>>>> Hier Infotext eintragen
cd :Demos&Programme/TurboCalc/Hilfe/
:c/Metatool :Demos&Programme/TurboCalc/Hilfe/TurboCalc.guide FT=GUIDE
cd /
endif
if $vassign EQ 1
;>>>>>>>> Hier steht das Assign
Assign >nil: TurboCalc: :Demos&Programme/TurboCalc/
if $vstart NOT EQ 1
:c/requestchoice20 >nil: Information "Assign angelegt!" OK
endif
endif
if $vstart EQ 1
;>>>>>>>> Hier steht das Startprogramm
cd :Demos&Programme/TurboCalc
:Demos&Programme/TurboCalc/TurboCalc
endif
if $vunassign EQ 1
;>>>>>>>> Hier steht das Unassign
Assign >nil: TurboCalc: remove
if $vstart NOT EQ 1
:c/requestchoice20 >nil: Information "Assign entfernt!" OK
endif
endif
if $vcopy EQ 1
execute :c/Verzeichniskopieren ":Demos&Programme/TurboCalc/" "TurboCalc" 2958336
endif
unset binfo
unset vinfo
unset ninfo
unset bassign
unset bunassign
unset vassign
unset vunassign
unset nassign
unset nunassign
unset bstart
unset vstart
unset nstart
unset bcopy
unset vcopy
unset ncopy
if "[param]" EQ ""
Steuerung
endif
LAB Ende
unsetenv reqerg[$$]